object frmADPublishMain: TfrmADPublishMain
  Left = 250
  Top = 38
  Width = 851
  Height = 677
  Caption = #24191#21578#21457#24067
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object pcMain: TPageControl
    Left = 0
    Top = 0
    Width = 835
    Height = 639
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #24191#21578#31574#30053#35774#32622
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 249
        Height = 612
        Align = alLeft
        BevelOuter = bvNone
        BorderWidth = 5
        TabOrder = 0
        object lbADCatalog: TListBox
          Left = 5
          Top = 5
          Width = 239
          Height = 380
          Align = alTop
          ItemHeight = 12
          TabOrder = 0
          OnClick = lbADCatalogClick
        end
        object btnAdd: TBitBtn
          Left = 24
          Top = 504
          Width = 75
          Height = 25
          Caption = #26032#22686
          TabOrder = 1
          OnClick = btnAddClick
        end
        object btnEdit: TBitBtn
          Left = 144
          Top = 504
          Width = 75
          Height = 25
          Caption = #20462#25913
          TabOrder = 2
          OnClick = btnEditClick
        end
        object btnDelete: TBitBtn
          Left = 24
          Top = 552
          Width = 75
          Height = 25
          Caption = #21024#38500
          TabOrder = 3
          OnClick = btnDeleteClick
        end
        object btnPublish: TBitBtn
          Left = 144
          Top = 552
          Width = 75
          Height = 25
          Caption = #29983#25104#24191#21578#21253
          TabOrder = 4
          OnClick = btnPublishClick
        end
        object DBMemo1: TDBMemo
          Left = 6
          Top = 392
          Width = 239
          Height = 105
          DataField = 'ADCatalogMemo'
          DataSource = dsCatalog
          TabOrder = 5
        end
      end
      object Panel2: TPanel
        Left = 249
        Top = 0
        Width = 578
        Height = 612
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 5
        TabOrder = 1
        object pcAD: TPageControl
          Left = 5
          Top = 5
          Width = 568
          Height = 531
          ActivePage = TabSheet3
          Align = alClient
          TabOrder = 0
          object TabSheet3: TTabSheet
            Caption = #20027#33756#21333#24191#21578#22270#29255
            object Label1: TLabel
              Left = 16
              Top = 360
              Width = 60
              Height = 12
              Caption = #36718#25442#38388#38548#65306
            end
            object Label2: TLabel
              Left = 181
              Top = 360
              Width = 12
              Height = 12
              Caption = #31186
            end
            object imgAD: TImage
              Left = 408
              Top = 16
              Width = 153
              Height = 121
            end
            object DBGridEh1: TDBGridEh
              Left = 8
              Top = 16
              Width = 393
              Height = 329
              DataSource = DSMenu
              Flat = False
              FooterColor = clWindow
              FooterFont.Charset = GB2312_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -12
              FooterFont.Name = #23435#20307
              FooterFont.Style = []
              PopupMenu = pmMenu
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = #23435#20307
              TitleFont.Style = []
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'ADUrl'
                  Footers = <>
                  Title.Caption = 'Url'
                  Width = 150
                end
                item
                  ButtonStyle = cbsEllipsis
                  EditButtons = <>
                  FieldName = 'ADRes'
                  Footers = <>
                  Title.Caption = #22270#29255#25991#20214
                  Width = 120
                  OnEditButtonClick = DBGridEh1Columns1EditButtonClick
                end
                item
                  EditButtons = <>
                  FieldName = 'ADMemo'
                  Footers = <>
                  Title.Caption = #22791#27880
                  Width = 50
                end>
            end
            object edtMenuImageInterval: TEdit
              Left = 77
              Top = 356
              Width = 81
              Height = 20
              TabOrder = 1
              Text = '0'
            end
            object udMenu: TUpDown
              Left = 158
              Top = 356
              Width = 16
              Height = 20
              Associate = edtMenuImageInterval
              TabOrder = 2
            end
          end
          object TabSheet4: TTabSheet
            Caption = #25628#32034#26639
            ImageIndex = 1
            object DBGridEh2: TDBGridEh
              Left = 8
              Top = 16
              Width = 393
              Height = 329
              DataSource = DSSearch
              Flat = False
              FooterColor = clWindow
              FooterFont.Charset = GB2312_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -12
              FooterFont.Name = #23435#20307
              FooterFont.Style = []
              PopupMenu = pmSearch
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = #23435#20307
              TitleFont.Style = []
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'ADName'
                  Footers = <>
                  Title.Caption = #21517#31216
                  Width = 120
                end
                item
                  EditButtons = <>
                  FieldName = 'ADUrl'
                  Footers = <>
                  Title.Caption = 'Url'
                  Width = 150
                end
                item
                  EditButtons = <>
                  FieldName = 'ADMemo'
                  Footers = <>
                  Title.Caption = #22791#27880
                  Width = 50
                end>
            end
          end
          object TabSheet5: TTabSheet
            Caption = #25512#33616#27036
            ImageIndex = 2
            object DBGridEh3: TDBGridEh
              Left = 8
              Top = 16
              Width = 393
              Height = 329
              DataSource = DSCommet
              Flat = False
              FooterColor = clWindow
              FooterFont.Charset = GB2312_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -12
              FooterFont.Name = #23435#20307
              FooterFont.Style = []
              PopupMenu = pmCommet
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = #23435#20307
              TitleFont.Style = []
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'ADName'
                  Footers = <>
                  Title.Caption = #21517#31216
                  Width = 120
                end
                item
                  EditButtons = <>
                  FieldName = 'ADUrl'
                  Footers = <>
                  Title.Caption = 'Url'
                  Width = 150
                end
                item
                  EditButtons = <>
                  FieldName = 'ADMemo'
                  Footers = <>
                  Title.Caption = #22791#27880
                  Width = 50
                end>
            end
          end
          object TabSheet6: TTabSheet
            Caption = #26356#26032#24191#21578#22270#29255
            ImageIndex = 3
            object Label3: TLabel
              Left = 16
              Top = 360
              Width = 60
              Height = 12
              Caption = #36718#25442#38388#38548#65306
            end
            object Label4: TLabel
              Left = 181
              Top = 360
              Width = 12
              Height = 12
              Caption = #31186
            end
            object DBGridEh4: TDBGridEh
              Left = 8
              Top = 16
              Width = 393
              Height = 329
              DataSource = DSSync
              Flat = False
              FooterColor = clWindow
              FooterFont.Charset = GB2312_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -12
              FooterFont.Name = #23435#20307
              FooterFont.Style = []
              PopupMenu = pmSync
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = #23435#20307
              TitleFont.Style = []
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'ADUrl'
                  Footers = <>
                  Title.Caption = 'Url'
                  Width = 150
                end
                item
                  ButtonStyle = cbsEllipsis
                  EditButtons = <>
                  FieldName = 'ADRes'
                  Footers = <>
                  Title.Caption = #22270#29255#25991#20214
                  Width = 120
                  OnEditButtonClick = DBGridEh4Columns1EditButtonClick
                end
                item
                  EditButtons = <>
                  FieldName = 'ADMemo'
                  Footers = <>
                  Title.Caption = #22791#27880
                  Width = 50
                end>
            end
            object edtSyncImageInterval: TEdit
              Left = 77
              Top = 356
              Width = 81
              Height = 20
              TabOrder = 1
              Text = '0'
            end
            object udSync: TUpDown
              Left = 158
              Top = 356
              Width = 16
              Height = 20
              Associate = edtSyncImageInterval
              TabOrder = 2
            end
          end
          object TabSheet7: TTabSheet
            Caption = #31995#32479#37096#20998
            ImageIndex = 4
            object lblHomepage: TLabel
              Left = 8
              Top = 40
              Width = 36
              Height = 12
              Caption = #20027#39029#65306
            end
            object lblDesktop: TLabel
              Left = 8
              Top = 100
              Width = 60
              Height = 12
              Caption = #26700#38754#22721#32440#65306
            end
            object btnDesktop: TSpeedButton
              Left = 264
              Top = 91
              Width = 23
              Height = 22
              OnClick = btnDesktopClick
            end
            object edtHomepage: TEdit
              Left = 69
              Top = 36
              Width = 321
              Height = 20
              TabOrder = 0
            end
            object edtWallpaper: TEdit
              Left = 69
              Top = 92
              Width = 193
              Height = 20
              TabOrder = 1
            end
            object chkHomepageEnable: TCheckBox
              Left = 16
              Top = 8
              Width = 97
              Height = 17
              Caption = #21551#29992
              Enabled = False
              TabOrder = 2
            end
            object chkDesktopEnable: TCheckBox
              Left = 16
              Top = 68
              Width = 97
              Height = 17
              Caption = #21551#29992
              Enabled = False
              TabOrder = 3
            end
            object btnDelDesktop: TButton
              Left = 296
              Top = 88
              Width = 75
              Height = 25
              Caption = #21024#38500
              TabOrder = 4
              OnClick = btnDelDesktopClick
            end
            object btnDelHomepage: TButton
              Left = 400
              Top = 32
              Width = 75
              Height = 25
              Caption = #21024#38500
              TabOrder = 5
              OnClick = btnDelHomepageClick
            end
          end
        end
        object Panel3: TPanel
          Left = 5
          Top = 536
          Width = 568
          Height = 71
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 1
          object Label5: TLabel
            Left = 16
            Top = 8
            Width = 78
            Height = 12
            Caption = #25628#32034#24341#25806'Url'#65306
          end
          object btnSaveADCatalog: TBitBtn
            Left = 320
            Top = 24
            Width = 75
            Height = 25
            Caption = #20445#23384
            TabOrder = 0
            OnClick = btnSaveADCatalogClick
          end
          object edtSearchEngineUrl: TEdit
            Left = 8
            Top = 32
            Width = 297
            Height = 20
            TabOrder = 1
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #24191#21578#29992#25143#20998#32452
      ImageIndex = 1
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 827
        Height = 88
        Align = alTop
        BevelOuter = bvNone
        BorderWidth = 5
        TabOrder = 0
        object Label6: TLabel
          Left = 6
          Top = 16
          Width = 24
          Height = 12
          Caption = #21697#29260
        end
        object Label7: TLabel
          Left = 6
          Top = 40
          Width = 48
          Height = 12
          Caption = #24191#21578#21512#20316
        end
        object Label8: TLabel
          Left = 214
          Top = 16
          Width = 24
          Height = 12
          Caption = #31867#22411
        end
        object Label9: TLabel
          Left = 422
          Top = 16
          Width = 48
          Height = 12
          Caption = #25509#20837#31867#22411
        end
        object Label10: TLabel
          Left = 214
          Top = 40
          Width = 48
          Height = 12
          Caption = #32456#31471#21488#25968
        end
        object Label11: TLabel
          Left = 422
          Top = 40
          Width = 24
          Height = 12
          Caption = #26723#27425
        end
        object Label12: TLabel
          Left = 8
          Top = 64
          Width = 12
          Height = 12
          Caption = #30465
        end
        object Label13: TLabel
          Left = 216
          Top = 64
          Width = 42
          Height = 12
          Caption = #24066'/'#22320#21306
        end
        object Label14: TLabel
          Left = 422
          Top = 64
          Width = 24
          Height = 12
          Caption = #20135#21697
        end
        object cbbBrand: TComboBox
          Left = 62
          Top = 12
          Width = 120
          Height = 20
          ItemHeight = 0
          TabOrder = 0
        end
        object cbbUseAd: TComboBox
          Left = 62
          Top = 36
          Width = 120
          Height = 20
          ItemHeight = 0
          TabOrder = 1
        end
        object cbbType: TComboBox
          Left = 270
          Top = 12
          Width = 120
          Height = 20
          ItemHeight = 0
          TabOrder = 2
        end
        object cbbConnection: TComboBox
          Left = 478
          Top = 12
          Width = 120
          Height = 20
          ItemHeight = 0
          TabOrder = 3
        end
        object cbbClientNums: TComboBox
          Left = 270
          Top = 36
          Width = 120
          Height = 20
          ItemHeight = 0
          TabOrder = 4
        end
        object cbbLevel: TComboBox
          Left = 478
          Top = 36
          Width = 120
          Height = 20
          ItemHeight = 0
          TabOrder = 5
        end
        object btnSearch: TBitBtn
          Left = 744
          Top = 32
          Width = 75
          Height = 25
          Caption = #26597#35810
          TabOrder = 6
          OnClick = btnSearchClick
        end
        object cbbProvince: TComboBox
          Left = 62
          Top = 60
          Width = 120
          Height = 20
          ItemHeight = 0
          TabOrder = 7
          OnChange = cbbProvinceChange
        end
        object cbbCity: TComboBox
          Left = 270
          Top = 60
          Width = 120
          Height = 20
          ItemHeight = 0
          TabOrder = 8
        end
        object cbbProduct: TComboBox
          Left = 478
          Top = 60
          Width = 120
          Height = 20
          ItemHeight = 0
          TabOrder = 9
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 88
        Width = 827
        Height = 501
        Align = alClient
        BevelOuter = bvNone
        Caption = 'Panel5'
        TabOrder = 1
        object Splitter1: TSplitter
          Left = 185
          Top = 0
          Height = 501
          Color = clBlue
          ParentColor = False
        end
        object Panel6: TPanel
          Left = 0
          Top = 0
          Width = 185
          Height = 501
          Align = alLeft
          BevelOuter = bvNone
          BorderWidth = 5
          TabOrder = 0
          object dbgCatalog: TDBGrid
            Left = 5
            Top = 5
            Width = 175
            Height = 491
            Align = alClient
            DataSource = dsCatalog
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'ADCatalogId'
                Title.Caption = #24191#21578#31574#30053'ID'
                Width = 40
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ADCatalogName'
                Title.Caption = #24191#21578#31574#30053#21517#31216
                Width = 120
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ADCatalogFile'
                Title.Caption = #31574#30053#25991#20214
                Width = 120
                Visible = True
              end>
          end
        end
        object Panel7: TPanel
          Left = 188
          Top = 0
          Width = 639
          Height = 501
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          object Panel8: TPanel
            Left = 0
            Top = 362
            Width = 639
            Height = 139
            Align = alBottom
            BevelOuter = bvNone
            BorderWidth = 5
            Caption = 'Panel8'
            TabOrder = 0
            object dbgCatalogUser: TDBGrid
              Left = 5
              Top = 5
              Width = 629
              Height = 129
              Align = alClient
              DataSource = dsCatalogUser
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              PopupMenu = pmCatalogUser
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = #23435#20307
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'UserNum'
                  Title.Caption = #32593#21543'ID'
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'Username'
                  Title.Caption = #32593#21543#21517#31216
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'UserBrand'
                  Title.Caption = #32593#21543#21697#29260
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'UserProduct'
                  Title.Caption = #20135#21697
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'UserType'
                  Title.Caption = #32593#21543#31867#22411
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'UserArea'
                  Title.Caption = #21306#22495
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'UserConnection'
                  Title.Caption = #25509#20837#26041#24335
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'UserClientNums'
                  Title.Caption = #26426#22120#21488#25968
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'UserLevel'
                  Title.Caption = #32593#21543#26723#27425
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'UserAroundType'
                  Title.Caption = #32593#21543#21608#22260#29615#22659
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'UserADPartner'
                  Title.Caption = #24191#21578#21512#20316
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'UserContact'
                  Title.Caption = #32852#31995#20154
                  Width = 100
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'UserAddress'
                  Title.Caption = #22320#22336
                  Width = 100
                  Visible = True
                end>
            end
          end
          object Panel9: TPanel
            Left = 0
            Top = 321
            Width = 639
            Height = 41
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 1
            object btnAddUser: TSpeedButton
              Left = 216
              Top = 8
              Width = 23
              Height = 22
              OnClick = btnAddUserClick
            end
            object btnDelUser: TSpeedButton
              Left = 272
              Top = 8
              Width = 23
              Height = 22
            end
          end
          object Panel10: TPanel
            Left = 0
            Top = 0
            Width = 639
            Height = 321
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 5
            Caption = 'Panel10'
            TabOrder = 2
            object dbgSearchUser: TDBGridEh
              Left = 5
              Top = 5
              Width = 629
              Height = 311
              Align = alClient
              DataSource = dsSearchUser
              Flat = False
              FooterColor = clWindow
              FooterFont.Charset = GB2312_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -12
              FooterFont.Name = #23435#20307
              FooterFont.Style = []
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = #23435#20307
              TitleFont.Style = []
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'UserNum'
                  Footers = <>
                  Title.Caption = #32593#21543'ID'
                  Width = 40
                end
                item
                  EditButtons = <>
                  FieldName = 'Username'
                  Footers = <>
                  Title.Caption = #32593#21543#21517#31216
                  Width = 100
                end
                item
                  EditButtons = <>
                  FieldName = 'UserBrand'
                  Footers = <>
                  Title.Caption = #21697#29260
                  Width = 100
                end
                item
                  EditButtons = <>
                  FieldName = 'UserProduct'
                  Footers = <>
                  Title.Caption = #20135#21697
                  Width = 100
                end
                item
                  EditButtons = <>
                  FieldName = 'UserType'
                  Footers = <>
                  Title.Caption = #29992#25143#31867#22411
                  Width = 60
                end
                item
                  EditButtons = <>
                  FieldName = 'UserArea'
                  Footers = <>
                  Title.Caption = #21306#22495
                  Width = 80
                end
                item
                  EditButtons = <>
                  FieldName = 'UserConnection'
                  Footers = <>
                  Title.Caption = #25509#20837#31867#22411
                  Width = 80
                end
                item
                  EditButtons = <>
                  FieldName = 'UserClientNums'
                  Footers = <>
                  Title.Caption = #26426#22120#21488#25968
                  Width = 60
                end
                item
                  EditButtons = <>
                  FieldName = 'UserLevel'
                  Footers = <>
                  Title.Caption = #26723#27425
                  Width = 100
                end
                item
                  EditButtons = <>
                  FieldName = 'UserAroundType'
                  Footers = <>
                  Title.Caption = #21608#22260#29615#22659
                  Width = 80
                end
                item
                  EditButtons = <>
                  FieldName = 'UserHardInfo'
                  Footers = <>
                  Title.Caption = #30828#20214#20449#24687
                  Width = 100
                end
                item
                  EditButtons = <>
                  FieldName = 'UserPort'
                  Footers = <>
                  Title.Caption = #31471#21475
                  Width = 100
                end
                item
                  EditButtons = <>
                  FieldName = 'UserActive'
                  Footers = <>
                  Title.Caption = #28608#27963
                  Width = 60
                end
                item
                  EditButtons = <>
                  FieldName = 'UserEnable'
                  Footers = <>
                  Title.Caption = #21487#29992
                  Width = 60
                end
                item
                  EditButtons = <>
                  FieldName = 'UserAdmin'
                  Footers = <>
                  Title.Caption = #31649#29702#21592
                  Width = 60
                end
                item
                  EditButtons = <>
                  FieldName = 'UserUsefulTime'
                  Footers = <>
                  Title.Caption = #21040#26399#26102#38388
                  Width = 60
                end
                item
                  EditButtons = <>
                  FieldName = 'UserADPartner'
                  Footers = <>
                  Title.Caption = #24191#21578#21512#20316
                  Width = 100
                end
                item
                  EditButtons = <>
                  FieldName = 'UserContact'
                  Footers = <>
                  Title.Caption = #32852#31995#20154
                  Width = 100
                end
                item
                  EditButtons = <>
                  FieldName = 'UserAddress'
                  Footers = <>
                  Title.Caption = #22320#22336
                  Width = 100
                end
                item
                  EditButtons = <>
                  FieldName = 'UserPhone'
                  Footers = <>
                  Title.Caption = #30005#35805
                  Width = 100
                end
                item
                  EditButtons = <>
                  FieldName = 'UserCellPhone'
                  Footers = <>
                  Title.Caption = #25163#26426
                  Width = 100
                end>
            end
          end
        end
      end
      object Panel11: TPanel
        Left = 0
        Top = 589
        Width = 827
        Height = 23
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 2
        object lblCatalog: TLabel
          Left = 15
          Top = 7
          Width = 152
          Height = 12
          AutoSize = False
          Caption = 'lblCatalog'
        end
        object lblCatalogUser: TLabel
          Left = 192
          Top = 7
          Width = 545
          Height = 12
          AutoSize = False
          Caption = 'lblCatalogUser'
        end
      end
    end
  end
  object QueryMenu: TADOQuery
    LockType = ltBatchOptimistic
    BeforePost = QueryMenuBeforePost
    Parameters = <
      item
        Name = 'ADCatalogId'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT * FROM ADDetail WHERE ADType =0 AND ADCatalogId=:ADCatalo' +
        'gId')
    Left = 40
    Top = 400
    object QueryMenuADId: TAutoIncField
      FieldName = 'ADId'
      ReadOnly = True
    end
    object QueryMenuADUrl: TWideStringField
      FieldName = 'ADUrl'
      OnGetText = QueryMenuADUrlGetText
      OnSetText = QueryMenuADUrlSetText
      Size = 255
    end
    object QueryMenuADRes: TBlobField
      FieldName = 'ADRes'
    end
    object QueryMenuADName: TWideStringField
      FieldName = 'ADName'
      OnGetText = QueryMenuADUrlGetText
      OnSetText = QueryMenuADUrlSetText
      Size = 255
    end
    object QueryMenuADVersion: TWideStringField
      FieldName = 'ADVersion'
      Size = 50
    end
    object QueryMenuADMemo: TWideStringField
      FieldName = 'ADMemo'
      Size = 255
    end
    object QueryMenuADType: TIntegerField
      FieldName = 'ADType'
    end
    object QueryMenuADCatalogId: TIntegerField
      FieldName = 'ADCatalogId'
    end
  end
  object DSMenu: TDataSource
    DataSet = QueryMenu
    Left = 104
    Top = 400
  end
  object QuerySearch: TADOQuery
    Tag = 1
    LockType = ltBatchOptimistic
    BeforePost = QueryMenuBeforePost
    Parameters = <
      item
        Name = 'ADCatalogId'
        DataType = ftInteger
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT * FROM ADDetail WHERE adtype=1 AND ADCatalogId=:ADCatalog' +
        'Id')
    Left = 8
    Top = 400
    object QuerySearchADId: TAutoIncField
      FieldName = 'ADId'
      ReadOnly = True
    end
    object QuerySearchADUrl: TWideStringField
      FieldName = 'ADUrl'
      OnGetText = QueryMenuADUrlGetText
      OnSetText = QueryMenuADUrlSetText
      Size = 255
    end
    object QuerySearchADRes: TBlobField
      FieldName = 'ADRes'
    end
    object QuerySearchADName: TWideStringField
      FieldName = 'ADName'
      OnGetText = QueryMenuADUrlGetText
      OnSetText = QueryMenuADUrlSetText
      Size = 255
    end
    object QuerySearchADVersion: TWideStringField
      FieldName = 'ADVersion'
      Size = 50
    end
    object QuerySearchADMemo: TWideStringField
      FieldName = 'ADMemo'
      Size = 255
    end
    object QuerySearchADType: TIntegerField
      FieldName = 'ADType'
    end
    object QuerySearchADCatalogId: TIntegerField
      FieldName = 'ADCatalogId'
    end
  end
  object DSSearch: TDataSource
    DataSet = QuerySearch
    Left = 40
    Top = 432
  end
  object QueryCommet: TADOQuery
    Tag = 2
    LockType = ltBatchOptimistic
    BeforePost = QueryMenuBeforePost
    Parameters = <
      item
        Name = 'ADCatalogId'
        DataType = ftInteger
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM addetail WHERE adtype=2'
      'AND ADCatalogId=:ADCatalogId')
    Left = 136
    Top = 368
    object QueryCommetADId: TAutoIncField
      FieldName = 'ADId'
      ReadOnly = True
    end
    object QueryCommetADUrl: TWideStringField
      FieldName = 'ADUrl'
      OnGetText = QueryMenuADUrlGetText
      OnSetText = QueryMenuADUrlSetText
      Size = 255
    end
    object QueryCommetADRes: TBlobField
      FieldName = 'ADRes'
    end
    object QueryCommetADName: TWideStringField
      FieldName = 'ADName'
      OnGetText = QueryMenuADUrlGetText
      OnSetText = QueryMenuADUrlSetText
      Size = 255
    end
    object QueryCommetADVersion: TWideStringField
      FieldName = 'ADVersion'
      Size = 50
    end
    object QueryCommetADMemo: TWideStringField
      FieldName = 'ADMemo'
      Size = 255
    end
    object QueryCommetADType: TIntegerField
      FieldName = 'ADType'
    end
    object QueryCommetADCatalogId: TIntegerField
      FieldName = 'ADCatalogId'
    end
  end
  object DSCommet: TDataSource
    DataSet = QueryCommet
    Left = 8
    Top = 432
  end
  object QuerySync: TADOQuery
    Tag = 3
    LockType = ltBatchOptimistic
    BeforePost = QueryMenuBeforePost
    Parameters = <
      item
        Name = 'ADCatalogId'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM addetail WHERE adtype=3'
      'AND ADCatalogId=:ADCatalogId')
    Left = 40
    Top = 368
    object QuerySyncADId: TAutoIncField
      FieldName = 'ADId'
      ReadOnly = True
    end
    object QuerySyncADUrl: TWideStringField
      FieldName = 'ADUrl'
      OnGetText = QueryMenuADUrlGetText
      OnSetText = QueryMenuADUrlSetText
      Size = 255
    end
    object QuerySyncADRes: TBlobField
      FieldName = 'ADRes'
    end
    object QuerySyncADName: TWideStringField
      FieldName = 'ADName'
      OnGetText = QueryMenuADUrlGetText
      OnSetText = QueryMenuADUrlSetText
      Size = 255
    end
    object QuerySyncADVersion: TWideStringField
      FieldName = 'ADVersion'
      Size = 50
    end
    object QuerySyncADMemo: TWideStringField
      FieldName = 'ADMemo'
      Size = 255
    end
    object QuerySyncADType: TIntegerField
      FieldName = 'ADType'
    end
    object QuerySyncADCatalogId: TIntegerField
      FieldName = 'ADCatalogId'
    end
  end
  object DSSync: TDataSource
    DataSet = QuerySync
    Left = 104
    Top = 432
  end
  object QueryHomepage: TADOQuery
    Tag = 4
    LockType = ltBatchOptimistic
    BeforePost = QueryMenuBeforePost
    Parameters = <
      item
        Name = 'ADCatalogId'
        DataType = ftInteger
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM adDetail WHERE adtype=4'
      'AND ADCatalogId=:ADCatalogId')
    Left = 8
    Top = 368
    object QueryHomepageADId: TAutoIncField
      FieldName = 'ADId'
      ReadOnly = True
    end
    object QueryHomepageADUrl: TWideStringField
      FieldName = 'ADUrl'
      OnGetText = QueryMenuADUrlGetText
      OnSetText = QueryMenuADUrlSetText
      Size = 255
    end
    object QueryHomepageADRes: TBlobField
      FieldName = 'ADRes'
    end
    object QueryHomepageADName: TWideStringField
      FieldName = 'ADName'
      Size = 255
    end
    object QueryHomepageADVersion: TWideStringField
      FieldName = 'ADVersion'
      Size = 50
    end
    object QueryHomepageADMemo: TWideStringField
      FieldName = 'ADMemo'
      Size = 255
    end
    object QueryHomepageADType: TIntegerField
      FieldName = 'ADType'
    end
    object QueryHomepageADCatalogId: TIntegerField
      FieldName = 'ADCatalogId'
    end
  end
  object DSHomepage: TDataSource
    DataSet = QueryHomepage
    Left = 160
    Top = 432
  end
  object QueryWallpaper: TADOQuery
    Tag = 5
    LockType = ltBatchOptimistic
    BeforePost = QueryMenuBeforePost
    Parameters = <
      item
        Name = 'ADCatalogId'
        DataType = ftInteger
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM adDetail WHERE adtype=5'
      'AND ADCatalogId=:ADCatalogId')
    Left = 104
    Top = 368
    object QueryWallpaperADId: TAutoIncField
      FieldName = 'ADId'
      ReadOnly = True
    end
    object QueryWallpaperADUrl: TWideStringField
      FieldName = 'ADUrl'
      OnGetText = QueryMenuADUrlGetText
      OnSetText = QueryMenuADUrlSetText
      Size = 255
    end
    object QueryWallpaperADRes: TBlobField
      FieldName = 'ADRes'
    end
    object QueryWallpaperADName: TWideStringField
      FieldName = 'ADName'
      OnGetText = QueryMenuADUrlGetText
      OnSetText = QueryMenuADUrlSetText
      Size = 255
    end
    object QueryWallpaperADVersion: TWideStringField
      FieldName = 'ADVersion'
      Size = 50
    end
    object QueryWallpaperADMemo: TWideStringField
      FieldName = 'ADMemo'
      Size = 255
    end
    object QueryWallpaperADType: TIntegerField
      FieldName = 'ADType'
    end
    object QueryWallpaperADCatalogId: TIntegerField
      FieldName = 'ADCatalogId'
    end
  end
  object DSWallpaper: TDataSource
    DataSet = QueryWallpaper
    Left = 136
    Top = 400
  end
  object pmMenu: TPopupMenu
    Left = 8
    Top = 464
    object N1: TMenuItem
      Caption = #28155#21152
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #21024#38500
      OnClick = N2Click
    end
  end
  object pmSearch: TPopupMenu
    Left = 40
    Top = 464
    object MenuItem1: TMenuItem
      Caption = #28155#21152
      OnClick = MenuItem1Click
    end
    object MenuItem2: TMenuItem
      Caption = #21024#38500
      OnClick = MenuItem2Click
    end
  end
  object pmCommet: TPopupMenu
    Left = 88
    Top = 424
    object MenuItem3: TMenuItem
      Caption = #28155#21152
      OnClick = MenuItem3Click
    end
    object MenuItem4: TMenuItem
      Caption = #21024#38500
      OnClick = MenuItem4Click
    end
  end
  object pmSync: TPopupMenu
    Left = 136
    Top = 432
    object MenuItem5: TMenuItem
      Caption = #28155#21152
      OnClick = MenuItem5Click
    end
    object MenuItem6: TMenuItem
      Caption = #21024#38500
      OnClick = MenuItem6Click
    end
  end
  object QueryCatalog: TADOQuery
    AfterOpen = QueryCatalogAfterOpen
    AfterScroll = QueryCatalogAfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ADCatalog')
    Left = 72
    Top = 368
  end
  object dsCatalog: TDataSource
    DataSet = QueryCatalog
    Left = 76
    Top = 112
  end
  object QueryCatalogUser: TADOQuery
    CursorType = ctStatic
    DataSource = dsCatalog
    Parameters = <>
    Left = 293
    Top = 408
    object QueryCatalogUserUserId: TAutoIncField
      FieldName = 'UserId'
      ReadOnly = True
    end
    object QueryCatalogUserUsername: TWideStringField
      FieldName = 'Username'
      Size = 255
    end
    object QueryCatalogUserUserPassword: TWideStringField
      FieldName = 'UserPassword'
    end
    object QueryCatalogUserUserBrand: TIntegerField
      FieldName = 'UserBrand'
      OnGetText = QuerySearchUserUserBrandGetText
    end
    object QueryCatalogUserUserProduct: TIntegerField
      FieldName = 'UserProduct'
      OnGetText = QuerySearchUserUserProductGetText
    end
    object QueryCatalogUserUserType: TIntegerField
      FieldName = 'UserType'
      OnGetText = QuerySearchUserUserTypeGetText
    end
    object QueryCatalogUserUserArea: TIntegerField
      FieldName = 'UserArea'
      OnGetText = QuerySearchUserUserAreaGetText
    end
    object QueryCatalogUserUserConnection: TIntegerField
      FieldName = 'UserConnection'
      OnGetText = QuerySearchUserUserConnectionGetText
    end
    object QueryCatalogUserUserClientNums: TIntegerField
      FieldName = 'UserClientNums'
    end
    object QueryCatalogUserUserLevel: TIntegerField
      FieldName = 'UserLevel'
      OnGetText = QuerySearchUserUserLevelGetText
    end
    object QueryCatalogUserUserAroundType: TIntegerField
      FieldName = 'UserAroundType'
      OnGetText = QuerySearchUserUserAroundTypeGetText
    end
    object QueryCatalogUserUserADPartner: TIntegerField
      FieldName = 'UserADPartner'
      OnGetText = QuerySearchUserUserADPartnerGetText
    end
    object QueryCatalogUserUserContact: TWideStringField
      FieldName = 'UserContact'
      Size = 50
    end
    object QueryCatalogUserUserAddress: TWideStringField
      FieldName = 'UserAddress'
      Size = 255
    end
    object QueryCatalogUserUserPoint: TIntegerField
      FieldName = 'UserPoint'
    end
    object QueryCatalogUserUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object QueryCatalogUserUserNum: TIntegerField
      FieldName = 'UserNum'
    end
  end
  object dsCatalogUser: TDataSource
    DataSet = QueryCatalogUser
    Left = 341
    Top = 393
  end
  object QuerySearchUser: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    Left = 320
    Top = 128
    object QuerySearchUserUserId: TAutoIncField
      FieldName = 'UserId'
      ReadOnly = True
    end
    object QuerySearchUserUserNum: TIntegerField
      FieldName = 'UserNum'
    end
    object QuerySearchUserUsername: TWideStringField
      FieldName = 'Username'
      Size = 255
    end
    object QuerySearchUserUserPassword: TWideStringField
      FieldName = 'UserPassword'
    end
    object QuerySearchUserUserBrand: TIntegerField
      FieldName = 'UserBrand'
      OnGetText = QuerySearchUserUserBrandGetText
    end
    object QuerySearchUserUserProduct: TIntegerField
      FieldName = 'UserProduct'
      OnGetText = QuerySearchUserUserProductGetText
    end
    object QuerySearchUserUserType: TIntegerField
      FieldName = 'UserType'
      OnGetText = QuerySearchUserUserTypeGetText
    end
    object QuerySearchUserUserArea: TIntegerField
      FieldName = 'UserArea'
      OnGetText = QuerySearchUserUserAreaGetText
    end
    object QuerySearchUserUserConnection: TIntegerField
      FieldName = 'UserConnection'
      OnGetText = QuerySearchUserUserConnectionGetText
    end
    object QuerySearchUserUserClientNums: TIntegerField
      FieldName = 'UserClientNums'
    end
    object QuerySearchUserUserLevel: TIntegerField
      FieldName = 'UserLevel'
      OnGetText = QuerySearchUserUserLevelGetText
    end
    object QuerySearchUserUserAroundType: TIntegerField
      FieldName = 'UserAroundType'
      OnGetText = QuerySearchUserUserAroundTypeGetText
    end
    object QuerySearchUserUserHardInfo: TWideStringField
      FieldName = 'UserHardInfo'
      Size = 100
    end
    object QuerySearchUserUserPort: TIntegerField
      FieldName = 'UserPort'
    end
    object QuerySearchUserUserActive: TIntegerField
      FieldName = 'UserActive'
      OnGetText = QuerySearchUserUserActiveGetText
    end
    object QuerySearchUserUserEnable: TIntegerField
      FieldName = 'UserEnable'
      OnGetText = QuerySearchUserUserEnableGetText
    end
    object QuerySearchUserUserAdmin: TIntegerField
      FieldName = 'UserAdmin'
    end
    object QuerySearchUserUserUsefulTime: TDateTimeField
      FieldName = 'UserUsefulTime'
    end
    object QuerySearchUserUserADPartner: TIntegerField
      FieldName = 'UserADPartner'
      OnGetText = QuerySearchUserUserADPartnerGetText
    end
    object QuerySearchUserUserContact: TWideStringField
      FieldName = 'UserContact'
      Size = 50
    end
    object QuerySearchUserUserAddress: TWideStringField
      FieldName = 'UserAddress'
      Size = 255
    end
    object QuerySearchUserUserPhone: TWideStringField
      FieldName = 'UserPhone'
      Size = 50
    end
    object QuerySearchUserUserCellPhone: TWideStringField
      FieldName = 'UserCellPhone'
      Size = 50
    end
    object QuerySearchUserUserPoint: TIntegerField
      FieldName = 'UserPoint'
    end
    object QuerySearchUserUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
  end
  object dsSearchUser: TDataSource
    DataSet = QuerySearchUser
    Left = 360
    Top = 128
  end
  object dlgSave: TSaveDialog
    Filter = 'DAT'#25991#20214'|*.dat'
    Left = 132
    Top = 495
  end
  object pmCatalogUser: TPopupMenu
    Left = 376
    Top = 533
    object mniDelCatalogUser: TMenuItem
      Caption = #21024#38500
      OnClick = mniDelCatalogUserClick
    end
  end
  object QueryBrand: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'Select * FROM Brand')
    Left = 216
    Top = 175
  end
  object QueryConnection: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM Connection')
    Left = 216
    Top = 215
  end
  object QueryLevel: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM Level')
    Left = 216
    Top = 255
  end
  object QueryArea: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM Area')
    Left = 216
    Top = 295
  end
  object QueryProduct: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM Product')
    Left = 216
    Top = 335
  end
end
